home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_113_setAt aLinearList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  525 b   |  13 lines
  1. on mouseDown
  2.   global gDefaultLinearList
  3.   doButton()
  4.   set vAddValue to the text of member "Adding Linear SetAt Input Field 2"
  5.   set vAddValue to checkValue(vAddValue)
  6.   set vSetPosition to the text of member "Adding Linear SetAt Input Field 1"
  7.   set vSetPosition to checkPosition(vSetPosition, EMPTY)
  8.   if (vAddValue <> EMPTY) and (vSetPosition <> EMPTY) then
  9.     setAt(gDefaultLinearList, vSetPosition, vAddValue)
  10.     set the text of member "Adding Linear SetAt Display Field 1" to string(gDefaultLinearList)
  11.   end if
  12. end
  13.